Thema Datum  Von Nutzer Rating
Antwort
06.06.2019 16:24:35 Reinhard
NotSolved
06.06.2019 18:38:28 Mackie
****
NotSolved
07.06.2019 08:26:57 Gast90463
NotSolved
Blau Zeile mit Bedingung löschen --> code langsam
 07.06.2019 09:36:24 Reinhard
NotSolved
07.06.2019 11:20:28 Mackie
NotSolved
07.06.2019 12:18:51 Reinhard
NotSolved
07.06.2019 12:39:36 Mackie
NotSolved
07.06.2019 13:22:18 Werner
Solved
07.06.2019 13:23:51 Werner
NotSolved
07.06.2019 13:27:59 Werner
*****
NotSolved
07.06.2019 14:38:45 Gast68811
NotSolved
07.06.2019 14:48:43 Werner
NotSolved

Ansicht des Beitrags:
Von:
Reinhard		 Datum:
07.06.2019 09:36:24		 Views:
464		 Rating:
     
Antwort:
  Ja
Thema:
Zeile mit Bedingung löschen --> code langsam

Hallo Mackie,

habe folgende Anpassungen am Code vorgenommen aber kann keine Verbesserung der Durchlaufzeit feststellen. Ist da noch was falsch?

Sub leere_merkmale_loeschen()

Dim tab_f As Worksheet
Dim matakt As String
Dim schleifenende As Integer
Dim tol_plus_wert As String
Dim tol_minus_wert As String
Dim nm_wert As String

Application.ScreenUpdating = False
Worksheets("Beispieldatensatz").EnableCalculation = False
Application.EnableEvents = False

Set tab_f = Worksheets("Beispieldatensatz")

With tab_f
    schleifenende = .Cells(3, 5).End(xlDown).Row
    For i = schleifenende To 3 Step -1
        matakt = .Cells(i, 5).Value
        tol_plus_wert = .Cells(i, 6).Value
        nm_wert = .Cells(i, 7).Value
        tol_minus_wert = .Cells(i, 8).Value
        Select Case matakt
            Case Is = "Außendurchmesser", "Wandstärke", "Ovalität", "Exzentrizität"

            Case Else
                If (tol_plus_wert = "0" Or tol_plus_wert = "") And (nm_wert = "0" Or nm_wert = "") And (tol_minus_wert = "0" Or tol_minus_wert = "") Then
                    .Rows(i).EntireRow.Delete
                End If
        End Select
    Next
End With

Application.EnableEvents = True
Application.ScreenUpdating = True
Worksheets("Beispieldatensatz").EnableCalculation = True

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.06.2019 16:24:35 Reinhard
NotSolved
06.06.2019 18:38:28 Mackie
****
NotSolved
07.06.2019 08:26:57 Gast90463
NotSolved
Blau Zeile mit Bedingung löschen --> code langsam
 07.06.2019 09:36:24 Reinhard
NotSolved
07.06.2019 11:20:28 Mackie
NotSolved
07.06.2019 12:18:51 Reinhard
NotSolved
07.06.2019 12:39:36 Mackie
NotSolved
07.06.2019 13:22:18 Werner
Solved
07.06.2019 13:23:51 Werner
NotSolved
07.06.2019 13:27:59 Werner
*****
NotSolved
07.06.2019 14:38:45 Gast68811
NotSolved
07.06.2019 14:48:43 Werner
NotSolved